home *** CD-ROM | disk | FTP | other *** search
/ What PC? 2000 May / What PC May 2000 / wpcmay00.iso / DXRS / Whatpc23.dxr / 00005.ls < prev    next >
Encoding:
Text File  |  2000-03-08  |  496 b   |  25 lines
  1. on startMovie
  2.   global DriveLtr, EmptyLoadInternet
  3.   set DriveLtr to driveLetter() & ":"
  4.   put DriveLtr
  5.   set EmptyLoadInternet to 0
  6. end
  7.  
  8. on driveLetter
  9.   global DriveLtr
  10.   set DriveLtr to EMPTY
  11.   repeat with i = 68 to 91
  12.     set fname to getNthFileNameInFolder(numToChar(i) & ":\WPCDOC\", 1)
  13.     if char 1 to 7 of fname = "VNU.TXT" then
  14.       set DriveLtr to numToChar(i)
  15.       exit repeat
  16.     end if
  17.   end repeat
  18.   return DriveLtr
  19. end
  20.  
  21. on getDriveLetter
  22.   global DriveLtr
  23.   return DriveLtr
  24. end
  25.